home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbtools1.arc / AEPRSANY.BAS < prev    next >
BASIC Source File  |  1987-12-10  |  2KB  |  60 lines
  1. rem $linesize:132
  2. rem $title:'Application Engineer Standard Routines'
  3. rem $subtitle:'Press.Any.Key display box.'
  4.  
  5. '                Include the COMMON values
  6. rem $include:'AESHARED.BAS'            
  7.     
  8. sub Press.Any.Key(dl%) static
  9.  
  10.         locate ,,0
  11.         ae.sstack%=ae.sstack%+1000%                             ' Screen save stack
  12.         if ae.sstack%>10000% then
  13.             call ae.error("AEPAK Screen Stack Overflow"+str$(ae.sstack%))
  14.         end if
  15.  
  16.         norm%=( ae.bg%(6%) and 7%)*16% + ae.fg%(6%)
  17.         high%=( ae.fg%(6%) and 7%)*16% + ae.hg%(6%)
  18.  
  19.         pak$="  *** Press Any Key to Continue ***"
  20.         d%=len(pak$)
  21.  
  22.         for j%=1% to dl%
  23.             k%=len(dialog$(j%))
  24.             if k%>d% then d%=k%
  25.         next j%
  26.         w%=d%+6%
  27.  
  28.  
  29.         l.marg%=(80%-w%)/2%
  30.         t.marg%=(25%-(6%+dl%))/2%
  31.         r.marg%=l.marg%+w%-1%
  32.         b.marg%=t.marg%+5%+dl%
  33.  
  34.         t.frame$=chr$(214%)+string$((w%-2%),196%)+chr$(183%)
  35.         b.frame$=chr$(211%)+string$((w%-2%),196%)+chr$(189%)
  36.         horz$=chr$(186%)+string$((w%-2%),32%)+chr$(186%)
  37.  
  38.         call getscreen(ae.screens%(ae.sstack%-999%),t.marg%,l.marg%,b.marg%,r.marg%,0%,0%)
  39.  
  40.         call xqprint(t.frame$,t.marg%,l.marg%,norm%,0%)
  41.         call xqprint(b.frame$,b.marg%,l.marg%,norm%,0%)
  42.  
  43.         for j%=t.marg%+1% to b.marg%-1%
  44.             call xqprint(horz$,j%,l.marg%,norm%,0%)
  45.         next j%
  46.  
  47.         l.marg%=l.marg%+4%
  48.  
  49.         for j%=1% to dl%
  50.             call xqprint(dialog$(j%),t.marg%+1%+j%,l.marg%,norm%,0%)
  51.         next j%
  52.  
  53.         call xqprint(pak$,b.marg%-2%,l.marg%,high%,0%)
  54.         call get.single(nonsense1%,nonsense2%)
  55.         call putscreen(ae.screens%(ae.sstack%-999%),t.marg%,l.marg%-4%,b.marg%,r.marg%,0%,0%)
  56.  
  57.         locate ,,0
  58.         ae.sstack%=ae.sstack%-1000%
  59.     end sub
  60.